1 IFX=.THENX=1:D=PEEK(186):LOAD"TOMB.OBJ",D,1
2 POKE56,144:POKE55,0:CLR
3 POKE53280,.:POKE53281,.:X=RND(-TI):FORX=901TO970:READA:POKEX,A:NEXT
4 FORX=828TO839:READA:POKEX,A:NEXT:FORX=679TO753:READA:POKEX,A:NEXT:GOTO79
5 D=RND(U)*G:POKES+K,U(D):POKES+7,V(D):POKES+G,U(D+K+F):POKES+G-U,V(D+K+F)
6 RETURN
7 VL=FC:ONFC+UGOSUB45,45,46,47,48
8 RETURN
9 ONFC+UGOSUB50,51,52,53:RETURN
10 ONFC+UGOSUB54,55,56:RETURN
11 PRINT"[144] +                                    / ";
12 PRINT"  [146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]  ";
13 PRINT"  [146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]  ";
14 PRINT"  [146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]  ";
15 PRINT"  [146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]  ";
16 PRINT"  [146][160][160][160][160]"Z$"([144]                          "Z$")[144][146][160][160][160][160]  ";
17 PRINT"  [146][160][160][160][160][160]"Z$"([144]========================"Z$")[144][160][146][160][160][160][160]  ";
18 PRINT"  [146][160][160][160][160][160][160] +                    / [160][160][146][160][160][160][160]  ";
19 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]  [160][160][146][160][160][160][160]  ";
20 PRINT"  [146][160][160][160][160][160][160]  [146][160][160]"Z$"([144]=============="Z$")[144][146][160][160]  [160][160][146][160][160][160][160]  ";
21 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160]+            /[160][146][160][160]  [160][160][146][160][160][160][160]  ";
22 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160] [146][160][160][160][160][160][160][160][160][160][160][160][160] [160][146][160][160]  [160][160][146][160][160][160][160]  ";
23 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160] [146][160]"Z$"([144]========"Z$")[144][146][160] [160][146][160][160]  [160][160][146][160][160][160][160]  ";
24 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160] [146][160][160] "Z$"[146][166][173][173][173][173][192][144] [160][146][160] [160][146][160][160]  [160][160][146][160][160][160][160]  ";
25 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160] [146][160][160] "Z$"[146][255][144]    "Z$"[146][223][144] [160][146][160] [160][146][160][160]  [160][160][146][160][160][160][160]  ";
26 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160] [146][160][160] "Z$"[146][255][144]    "Z$"[146][223][144] [160][146][160] [160][146][160][160]  [160][160][146][160][160][160][160]  ";
27 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160] [146][160]"Z$"<[144]        "Z$">[144][146][160] [160][146][160][160]  [160][160][146][160][160][160][160]  ";
28 PRINT"  [146][160][160][160][160][160][160]  [146][160][160][160]/            +[160][146][160][160]  [160][160][146][160][160][160][160]  ";
29 PRINT"  [146][160][160][160][160][160][160]  [146][160][160]"Z$"<[144]              "Z$">[144][146][160][160]  [160][160][146][160][160][160][160]  ";
30 PRINT"  [146][160][160][160][160][160][160] /                    + [160][160][146][160][160][160][160]  ";
31 PRINT"  [146][160][160][160][160][160][160]/                      +[160][160][146][160][160][160][160]  ";
32 PRINT"  [146][160][160][160][160][160]"Z$"<[144]                        "Z$">[144][160][146][160][160][160][160]  ";
33 PRINT"  [146][160][160][160][160]"Z$"<[144]                          "Z$">[144][146][160][160][160][160]  ";
34 PRINT" /                                    + ";
35 PRINTD$B$D$I$(DL(CL,T))TAB(G+H)""D$(CD*-(CU=G))"[150]";
36 PRINTTAB(39-LEN(T$(DL(CL,U))))T$(DL(CL,U));:SYSRL:RETURN
37 PRINT"[146]  ":FORX=.TO20:PRINT"  ":NEXT:RETURN
38 PRINT"[146]":FORX=.TO10:PRINTTAB(8)"  ":NEXT:RETURN
39 PRINT"[146]";TAB(13)" [157]";:FORX=.TOF:PRINT" [157]";:NEXT:RETURN
40 PRINT"";TAB(16)" [157] [157] ":RETURN
41 PRINT"[146]":FORX=.TO21:PRINTTAB(39)CHR$(20)CHR$(32):NEXT:RETURN
42 PRINT"[146]":FORX=.TO10:PRINTTAB(30)"  ":NEXT:RETURN
43 PRINT"":FORX=.TO5:PRINTTAB(26)" ":NEXT:RETURN
44 PRINT"[146]";TAB(23)" [157] [157] ":RETURN
45 PRINT"[146]";:FORX=.TO17:PRINTTAB(6)W1$:NEXT:RETURN
46 PRINT"[146]";:FORX=.TO9:PRINTTAB(12)W2$:NEXT:RETURN
47 PRINT"[146]";:FORX=.TO5:PRINTTAB(15)W3$:NEXT:RETURN
48 PRINT"[146]";:FORX=.TOT:PRINTTAB(17)W4$:NEXT:RETURN
49 RETURN
50 PRINT""TAB(13)S1$;:RETURN
51 PRINT""TAB(15)S2$;:RETURN
52 PRINT""TAB(17)S3$;:RETURN
53 PRINT""TAB(18)S4$;:RETURN
54 PRINT""TAB(13)E1$:RETURN
55 PRINT""TAB(15)E2$:RETURN
56 PRINT""TAB(17)E3$:RETURN
57 IF(DL(CL,.)ANDB(F+H))=.THEN61
58 SB=PEEK(V+21):POKEV+21,.:GOSUB273:GOSUB251:DL(CL,.)=(DL(CL,.)ANDG)
59 X=INT(RND(U)*10*(DL+U)):C$(1)="YOU TAKE"+STR$(X)+" HP DAMAGE!":AA=18:N=1
60 LF=LF-X:GOSUB257:GOSUB326:FORX=.TO2000:NEXT:GOSUB288:POKEV+21,SB
61 PRINTD$TAB(G+H)"MOVE!";:CEM=FNTE(.):POKESE,CEM:GOSUB11:PRINTZ$;
62 FC=F:VL=FC:LV=CD-U+F*-(CD=U):RV=CD+U+F*(CD=F)
63 EBM=FNCP(.):IFEBM>.ANDEBM<DETHEN65
64 FC=FC-U:ON-(FC>-U)GOTO63:RETURN
65 EL=FNCP(LV):ER=FNCP(RV):IFDL(EBM,.)THEN67
66 GOSUB7:FC=FC-U:ONU-(FC<.)GOTO63,71
67 IFDL(EL,.)ANDFC<FTHENONFC+UGOSUB37,38,39,40
68 IFDL(ER,.)ANDFC<FTHENONFC+UGOSUB41,42,43,44
69 FORD=.TOH:IF(DL(EBM,.)ANDB(D))THENONDGOSUB9,10,7:PRINTZ$;
70 PRINT"[146]";:NEXT:FC=FC-U:IFFC>-UTHEN63
71 GOSUB72:CSM=FNSW(.):POKEV+24,(PEEK(V+24)AND15)ORCSM:POKEV+21,EL:RETURN
72 IFFCANDVLTHENVL=VL-U
73 D=191:POKEFNMP(U),D:POKEFNMP(T),D:POKEFNMP(H),D:POKEFNMP(F+U),D
74 EL=.:ER=.:POKEV+21,.:FORX=VLTO.STEP-U:FC=FNCM(X):IFDL(FC,U)=.THEN78
75 FC=ABS(DL(FC,U)-U):EL=(ELORSP(X+F))
76 MB=SP(X)-U:FORD=UTOLEN(SB$(X,FC)):POKEFNMP(MB+D),ASC(MID$(SB$(X,FC),D,U))
77 POKEBC+SP(X)+D,CS(FC):NEXT
78 NEXT:SB=EL:RETURN
79 PRINTCHR$(147)CHR$(8)CHR$(142)"STAND BY....":GOSUB290:GOSUB298
80 DIMDL(383,3),B(15),SP(7),SB$(3,12),D$(4),CS(12),L$(6),I(30),M(24),MH(24)
81 DIMCM$(14),T$(13),I$(30),C$(30),C(30),M$(44),LV(2,2),CZ$(2),H(8),SM$(8)
82 DIMTS(24),U(26),V(26)
83 FC=.:CL=17:CD=2:VL=.:EL=.:ER=.:VS=.:LF=20:M=.:W=.005:Z=.94:WL=17
84 TL=388:TGL=16:CSM=.:CEM=192:DE=383:V=53248:SB=.:RL=828:SE=648:SR=679
85 U=1:T=2:H=3:F=4:K=8:G=15:JOY=56320:DL=.:DM=.:AR=.:CU=.:WE=.
86 S=54272:BC=V+38:SS=.:SC=.:CC=55296:SZ=959:I=.
87 D(1)=1:D(2)=16:D(3)=-1:D(4)=-16
88 H(.)=1:H(1)=10:H(2)=2:H(3)=2:H(4)=1:H(5)=7:H(6)=3:H(7)=13:H(8)=5
89 SP(.)=.:SP(1)=4:SP(2)=6:SP(3)=7:SP(4)=15:SP(5)=48:SP(6)=64:SP(7)=128
90 D$(.)="  ?  ":D$(1)="EAST ":D$(2)="SOUTH":D$(3)="WEST ":D$(4)="NORTH"
91 SM$(.)="\\":FORX=1TO8:SM$(X)=CHR$(32)+CHR$(32):NEXT:CR$=CHR$(13)
92 FORX=.TO38:W$=W$+CHR$(160):B$=B$+CHR$(32):MB$=MB$+"*":NEXT
93 D$="[155][146]":FORX=.TO23:D$=D$+"":NEXT
94 W1$=LEFT$(W$,28):W2$=LEFT$(W$,16):W3$=LEFT$(W$,10):W4$=LEFT$(W$,6)
95 S1$="[144])"+LEFT$(W$,12)+"(":S2$="[144])"+LEFT$(W$,8)+"("
96 S3$="[144])"+LEFT$(W$,4)+"(":S4$="[144])"+LEFT$(W$,2)+"("
97 E1$="[144]>"+LEFT$(W$,12)+"<":E2$="[144]>"+LEFT$(W$,8)+"<"
98 E3$="[144]>"+LEFT$(W$,4)+"<":CZ$(.)="[151]":CZ$(1)="":CZ$(2)="[149]"
99 I$(.)=LEFT$(B$,15):T$(.)=LEFT$(B$,13)
100 DEF FNCP(X)=FC*D(CD)+(CL+D(X)):DEF FNSW(X)=(TGL-CSM)
101 DEF FNTE(X)=(TL-CEM):DEF FNCM(X)=X*D(CD)+CL:DEF FNMP(X)=CEM*256+1016+X
102 DEFFNJ(X)=(G-(XANDG)):DEFFNC(X)=(LF<K)*-T+(LF>KANDLF<G)*-(F+H)
103 DEFFNCD(X)=CD+(CD=F+U)*F+(CD=.)*-F:DEFFNJF(X)=((JYAND(G+U))=.)
104 DEFFNH(A)=(AR+I(AR)*T+LF/K)
105 FORX=.TO15:B(X)=2^X:NEXT
106 FORX=.TODE:READD:DL(X,.)=D:NEXT:FORX=.TO15:READA:POKEV+X,A:NEXT
107 FORX=1TO13:READT$(X):NEXT:FORX=.TO24:READA:M(X)=A:NEXT
108 FORX=.TO12:READCS(X):NEXTX:FORX=.TO24:READTS(X):NEXT
109 FORX=.TO6:FORA=.TO3:SB$(A,X)=CHR$(32+X):NEXTA,X
110 FORX=7TO12:FORA=.TO3:READSB$(A,X):NEXTA,X
111 FORX=.TO1:SB$(X,.)=CHR$(191)+CHR$(32):NEXT
112 FORX=1TO30:READI$(X):NEXT:FORX=1TO14:READCM$(X):NEXT
113 FORX=.TO2:FORA=.TO2:READLV(X,A):NEXTA,X:FORX=1TO44:READM$(X):NEXT
114 J=1:FORD=.TOT:FORX=.TOK-U
115 A=INT(RND(U)*96+(D*128+16)):ON-(DL(A,.)=.)GOTO115:DL(A,U)=M(J):M(J)=A
116 MH(J)=J*F*(D+U):J=J+U:NEXT:NEXT:FORX=.TO63:POKE61376+X,.:NEXT
117 FORD=.TOT:FORX=.TO10
118 A=INT(RND(U)*96+(D*128+16)):ON-(DL(A,.)=.)GOTO118:DL(A,.)=DL(A,.)ORB(7)
119 NEXT:NEXT
120 FORX=.TO26:A=2703*(2^((X-20)/12)):IFA>65535THENA=65535
121 U(X)=INT(A/B(K)):V(X)=A-U(X)*B(K):NEXT
122 DL(WL,T)=U:DL(WL,H)=U:DL(WL+16,T)=10:DL(WL+16,H)=U
123 PRINTCHR$(147)CHR$(14):POKEV+21,.:POKEV+23,127:POKEV+29,15
124 POKEV+17,PEEK(V+17)OR64:GOSUB289:GOSUB61
125 SS=144:SC=148:GOSUB273
126 C$(U)=M$(31):BO$="[151]":MC$="":N=U:GOSUB254:GOSUB288:GOSUB319:IT=IT+1000
127 JY=PEEK(JOY):J=FNJ(JY):B=DL(CL,U):IFB>.THENIFRND(U)+B/50>ZTHENGOSUB159
128 ON-(RND(U)>Z)GOSUB5:ON-(FNJF(J)ANDAR>.)GOSUB163
129 IFJTHENONJGOSUB138,146,8,149,8,8,8,150
130 POKEV+K*F,FNC(.):LF=LF+W:ON-(TI>IT)GOSUB151:ON-(LF>.)GOTO127
131 J=.:D=.:FORX=UTO100:POKE63488+32*K+RND(U)*K,RND(U)*255+U:NEXT
132 PRINT"[144][147]":POKEV+21,.:GOSUB327:FORX=250TO150STEP-U:SYSSR,.,240,X,.,17,1
133 NEXT:FORX=.TO7:POKE63488+32*K+X,.:NEXT:X=.
134 POKEV+17,PEEK(V+17)AND191
135 C$(1)=M$(43+X):C$(2)="":C$(3)="     P L A Y   A G A I N ?   "
136 BO$="":MC$="[150]":N=3:GOSUB256:GOSUB252:IFI=UTHENPOKES+24,.:RUN30
137 POKESE,4:POKE679,.:SYS679
138 IFDL(CL+D(CD),.)=.THENGOSUB326:RETURN
139 CL=CL+D(CD):GOSUB57:RETURN
140 ON-(B>.)GOTO8:SB=PEEK(V+21):SS=144:SC=148:GOSUB273
141 GOSUB271:POKEV+21,.:GOSUB274:SS=152:SC=156:GOSUB273
142 GOSUB271:GOSUB279:ON-(I=G-U)GOTO145
143 ONIGOSUB180,185,193,194,195,196,202,210,224,232,235,243,248
144 SS=152:SC=156:GOSUB288:GOTO142
145 SS=144:SC=148:GOSUB288:POKEV+21,SB:X=FRE(.):GOSUB5:RETURN
146 IFFNJF(.)THEN140
147 IFDL(CL-D(CD),.)=.THENGOSUB326:RETURN
148 CL=CL-D(CD):GOSUB57:RETURN
149 CD=CD-U:CD=FNCD(.):GOSUB57:RETURN
150 CD=CD+U:CD=FNCD(.):GOSUB57:RETURN
151 D=DL*K+U:J=D+K-U:FORX=DTOJ:ON-(MH(X)=.)GOTO158:A=-U
152 IFCL<M(X)-KTHENA=M(X)+D(F)
153 IFCL>M(X)+KTHENA=M(X)+D(T)
154 IFCL>M(X)ANDCL<M(X)+KTHENA=M(X)+D(U)
155 IFCL<M(X)ANDCL>M(X)-KTHENA=M(X)+D(H)
156 IFA<.ORA>DETHEN158
157 IFDL(A,.)ANDDL(A,U)=.THENDL(A,U)=ABS(DL(M(X),U)):DL(M(X),U)=.:M(X)=A
158 NEXT:ON-(DL(CL,U)>.)GOSUB317:GOSUB73:POKEV+21,EL:IT=TI+SZ:RETURN
159 IFCU=20THENRETURN
160 IFWETHENB=B*((G-WE)/10)
161 LF=LF-B*T:GOSUB326:FORX=.TOH:WAITV+17,128:POKEV+34,H(X):POKEV+35,H(X)
162 NEXT:GOSUB289:POKEV+K*F,FNC(.):RETURN
163 ON-(B=.ORCU=20)GOTO8:E=CL:DM=FNH(.):X=.
164 ON-(MH(X)=.)GOTO179:ON-(E<>M(X))GOTO179:MH(X)=MH(X)-DM:GOSUB326
165 FORD=FTOK:WAITV+17,128:POKEV+34,H(D):POKEV+35,H(D):NEXT:GOSUB289
166 ON-(MH(X)>.)GOTO179:MH(X)=.:DL(E,U)=.:M(.)=.
167 LV=.:A=-U
168 A=A+U:FC=E+D(A)*LV:IFFC<.ORFC>DETHEN171
169 IFDL(FC,.)=.ORDL(FC,T)THEN171
170 DL(FC,T)=TS(X):DL(FC,H)=U+INT(-(TS(X)<G)*RND(U)*H):GOTO173
171 IFA=FTHENA=.:LV=LV+U
172 GOTO168
173 FORX=.TOG:FORD=UTOF
174 POKEBC+D,X:NEXT:NEXT:POKEV+21,PEEK(V+21)AND240
175 GOSUB323:LF=LF+B
176 X=26+RND(U)*5:I(X)=I(X)+INT(RND(U)*50*B*(LV+U))
177 C$(1)="A "+M$(22+RND(U)*H)+" "+M$(25+RND(U)*H)+" OF "+I$(X)+"."
178 BO$="[158]":MC$="":N=U:GOSUB273:GOSUB254:GOSUB288:GOSUB35:RETURN
179 X=X+U:ON-(X<25)GOTO164:RETURN
180 IFDL(CL,T)=.THENC$(U)="NOTHING HERE!":N=U:BO$="[156]":MC$="":GOSUB254:RETURN
181 IFDL(CL,T)>14THEN183
182 IFI(DL(CL,T))THENC$(U)="YOU HAVE A "+I$(DL(CL,T)):N=U:GOSUB254:RETURN
183 I(DL(CL,T))=I(DL(CL,T))+DL(CL,H):C$(U)=I$(DL(CL,T))+" TAKEN!"
184 N=U:BO$="":DL(CL,T)=.:PRINTD$I$(.);:GOSUB254:RETURN
185 IFDL(CL,T)THENC$(U)="NOT ENOUGH ROOM HERE.":N=U:BO$="[156]":MC$="":GOTO254
186 GOSUB258:IFX=-1THENRETURN
187 GOSUB274:GOSUB279:DL(CL,T)=C(I):DL(CL,H)=I(C(I)):I(C(I))=.
188 C$(U)=I$(C(I))+" DROPPED.":N=U:BO$="":PRINTD$I$(C(I));
189 IFAR=C(I)THENAR=.
190 IFCU=C(I)THENCU=.
191 IFWE=C(I)THENWE=.
192 GOSUB254:RETURN
193 GOSUB263:ON-(N=.)GOTO253:GOSUB274:GOSUB279:AR=C(I):RETURN
194 GOSUB267:ON-(N=.)GOTO253:GOSUB274:GOSUB279:CU=C(I):RETURN
195 GOSUB265:ON-(N=.)GOTO253:GOSUB274:GOSUB279:WE=C(I):RETURN
196 IF(DL(CL,.)ANDF)=.THENC$(U)=M$(29):BO$="":MC$="[158]":N=U:GOTO254
197 IFI(19)=.THENC$(U)=M$(30)+I$(19)+"!":BO$="[156]":MC$="[159]":N=U:GOTO254
198 IFI(17)=.THENC$(U)=M$(30)+I$(17)+"!":BO$="[156]":MC$="[151]":N=U:GOTO254
199 ON-(CL<>WL)GOTO201:IFI(25)=.THENC$(U)=M$(42):BO$="[156]":MC$="":N=U:GOTO254
200 PRINTCHR$(147):GOSUB323:X=U:GOTO134
201 DL=DL-U:CL=CL-128:A=F:D=50:J=T:GOSUB321:GOTO206
202 IF(DL(CL,.)ANDT)=.THENC$(U)=M$(28):BO$="":MC$="[158]":N=U:GOTO254
203 IFI(19)=.THENC$(U)=M$(30)+I$(19)+"!":BO$="[156]":MC$="[159]":N=U:GOTO254
204 IFI(17)=.THENC$(U)=M$(30)+I$(17)+"!":BO$="[156]":MC$="[151]":N=U:GOTO254
205 DL=DL+U:CL=CL+128:A=50:D=F:J=-T:GOSUB321
206 SS=144:SC=148:GOSUB288:Z$=CZ$(DL):GOSUB61:GOSUB289
207 GOSUB271:GOSUB273:GOSUB274
208 C$(U)=M$(31+DL):BO$="[151]":MC$="":N=U:AA=U:SS=152:SC=156:GOSUB273
209 GOSUB254:RETURN
210 PRINTD$B$D$"[158]"I$(AR)TAB(17)"HP[158]"STR$(INT(LF))TAB(39-LEN(I$(CU)))I$(CU);
211 IFWETHENC$(U)=I$(WE):BO$="[153]":MC$="":N=U:AA=19:GOSUB257
212 GOSUB258:IFX=-UTHENGOSUB35:RETURN
213 ONIGOTO214,214,217,217
214 GOSUB274:GOSUB279:BO$="":C$(U)="THE "+I$(C(I))+" IS OF"
215 C$(T)=M$(18+I(C(I)))+" WORKMANSHIP.":AA=K:N=T:LM=28:SM=20-LM/T
216 GOSUB274:GOSUB255:GOSUB35:RETURN
217 GOSUB274:GOSUB279:IFC(I)=16THEN220
218 C$(U)="YOU HAVE"+STR$(I(C(I)))+" "+I$(C(I))+"."
219 N=U:BO$="":GOSUB254:GOSUB35:RETURN
220 C$(U)="UNROLLING PARCHMENT...":N=U:BO$="[158]":MC$="[149]":GOSUB256
221 X=DL*128:J=U:FORA=.TO127STEP16:C$(J)="":FORD=.TOG
222 C$(J)=C$(J)+SM$(DL(X+A+D,.)ANDG):NEXT:C$(J+U)=C$(J):J=J+T
223 NEXT:N=J-U:BO$="[149]":MC$=CZ$(DL):GOSUB254:GOSUB35:RETURN
224 IFCU=.THENC$(U)="YOU ARE EMPTY HANDED.":N=U:BO$="[155]":MC$="":GOTO254
225 IFCU<21THENC$(U)="NOTHING HAPPENS.":N=U:BO$="[151]":MC$="[155]":GOTO254
226 C$(U)=M$(15+(CU-21)):N=U:BO$="[158]":MC$="[150]":GOSUB256
227 IFCU=21ANDDL(CL+D(CD),.)=KTHENDL(CL+D(CD),.)=U
228 J=DL(CL+D(CD),U):IFCU=22AND(J=KORJ=9ORJ=13)THEN238
229 IFCU=23THENCU=.:I(23)=.:I(24)=U
230 IFCU=24THENI(25)=U:I(24)=.:CU=.
231 GOSUB255:RETURN
232 IFI(18)=.THENC$(U)=M$(34):BO$="[154]":MC$="[156]":N=U:GOSUB254:RETURN
233 I(18)=I(18)-U:LF=LF+10:C$(U)="YOUR BODY IS FLOODED WITH STRENGTH":N=U
234 BO$="[154]":MC$="":GOSUB254:RETURN
235 J=ABS(DL(CL+D(CD),U)):IFJ=.THENC$(U)=M$(35):MC$="[158]":N=U:GOSUB254:RETURN
236 IFJ<5ORJ=7THENC$(U)="THE IGNORANT BRUTE IS SILENT.":N=U:BO$="[154]":GOTO254
237 IFLF<B*10ORJ>11ORRND(U)<.8THEN240
238 C$(U)=CHR$(34)+M$(14)+CHR$(34):C$(T)="MURMURS THE "+T$(J)+"."
239 BO$="[156]":MC$="[158]":N=T:DL(CL+D(CD),U)=-J:GOSUB254:RETURN
240 X=(RND(U)*F):C$(U)=CHR$(34)+"I'LL "+M$(6+X)+"!!"+CHR$(34)
241 X=(RND(U)*F):C$(T)=M$(10+X)+" THE "+T$(J)+"."
242 BO$="":MC$="":N=T:GOSUB254:RETURN
243 A=.:FORFC=.TOH:EBM=FNCP(.):IFEBM<.OREBM>DETHEN246
244 IF(DL(EBM,.)ANDB(7))=.THEN246
245 DL(EBM,.)=DL(EBM,.)ANDG:GOSUB251:FORX=.TO2000:NEXT:GOSUB288:A=A+U
246 NEXT:IFA=.THENC$(U)="NO TRAPS AHEAD.":N=U:BO$="":MC$="":GOTO254
247 C$(U)="YOU AVOID TRAPS.":N=U:BO$="":MC$="":GOTO254
248 A=.:FORD=UTOF:ONDGOSUB263,265,267,269:IFNTHENA=A+U:GOSUB274
249 NEXT:IFATHENGOSUB255:RETURN
250 C$(U)="YOU ARE CARRYING NOTHING.":BO$="[154]":MC$="":N=U:GOTO254
251 C$(U)=M$(36+(RND(U)*6))+"!!":N=U:BO$="[150]":MC$="[158]":GOSUB256:RETURN
252 C$(1)="YEA":C$(2)="NAY":N=2:AA=18:GOSUB257:GOSUB279:RETURN
253 C$(U)="YOU HAVE NOTHING TO "+CM$(I)+"!":BO$="[156]":MC$="":N=U
254 GOSUB256:GOSUB255:RETURN
255 JY=PEEK(JOY):J=FNJ(JY):ON-(FNJF(.))GOTO255:WAITJOY,16,16:RETURN
256 AA=11-(N/T)
257 LM=LEN(C$(U))+F:SM=20-(LM/T):GOSUB274:RETURN
258 N=5:FORX=UTON:C$(X)=M$(X):C(X)=X:NEXT:AA=U:SM=11:LM=18:BO$="[152]":MC$="[152]"
259 GOSUB274:GOSUB279:IFI=5THENX=-U:RETURN
260 ONIGOSUB263,265,267,269
261 IFN=.THENC$(U)="YOU HAVE NO "+C$(I)+".":N=U:GOSUB254:X=-U:RETURN
262 X=U:RETURN
263 N=.:FORX=UTOK+U:IFI(X)THENN=N+U:C$(N)=I$(X):C(N)=X
264 NEXT:AA=U:SM=T:LM=18:BO$="[149]":MC$="[150]":RETURN
265 N=.:FORX=10TO14:IFI(X)THENN=N+U:C$(N)=I$(X):C(N)=X
266 NEXT:AA=14:SM=U:LM=18:BO$="[153]":MC$="":RETURN
267 N=.:FORX=15TO24:IFI(X)THENN=N+U:C$(N)=I$(X):C(N)=X
268 NEXT:AA=U:SM=21:LM=18:BO$="[151]":MC$="[152]":RETURN
269 N=.:FORX=25TO30:IFI(X)THENN=N+U:C$(N)=I$(X):C(N)=X
270 NEXT:AA=14:SM=22:LM=17:BO$="[158]":MC$="[156]":RETURN
271 N=14:FORX=UTON:C$(X)=CM$(X):C(X)=X:NEXT:AA=T:SM=12:LM=16
272 BO$="":MC$="[154]":RETURN
273 SYS901,CEM*256,CEM*256+SZ,SS*B(K):SYS901,CC,CC+SZ,SC*B(K):RETURN
274 PRINTCHR$(19);BO$;
275 FORI=UTOAA:PRINT:NEXT:PRINTTAB(SM)LEFT$(MB$,LM):FORI=UTON+T
276 PRINTTAB(SM)"*"LEFT$(B$,LM-T)"*":NEXT:PRINTTAB(SM)LEFT$(MB$,LM)
277 PRINTCHR$(19);MC$"":FORI=UTOAA:PRINT:NEXT
278 FORI=UTON:PRINTTAB(SM+T);"[146]";C$(I)::NEXT:RETURN
279 JY=PEEK(JOY):J=FNJ(JY):ON-(FNJF(.))GOTO279:PRINTCHR$(19)
280 FORI=UTOAA:PRINT:NEXT:PRINT:I=U
281 PRINTTAB(SM+T);"";C$(I)
282 JY=PEEK(JOY):J=FNJ(JY):IFFNJF(.)THENGOSUB322:RETURN
283 IFJ<>UANDJ<>TTHEN282
284 PRINT"[145]";TAB(SM+T);MC$;C$(I)
285 IF(J=T)ANDI<NTHENI=I+U:GOTO281
286 IFJ=UANDI>UTHENPRINT"[145][145]";:I=I-U:GOTO281
287 PRINT"[145]";:GOTO281
288 SYS901,SS*B(K),SS*B(K)+SZ,CEM*256:SYS901,SC*B(K),SC*B(K)+SZ,CC:RETURN
289 POKEV+34,LV(DL,.):POKEV+35,LV(DL,1):POKEV+36,LV(DL,2):Z$=CZ$(DL):RETURN
290 POKE56333,127:POKE1,51:SYS901,53248,55296,61440:SYS901,53248,55296,63488
291 POKE1,55:POKE56333,129
292 GOSUB296:FORX=.TO7:READA:POKE61440+87*8+X,A:NEXT
293 POKE56578,PEEK(56578)OR3:POKE56576,PEEK(56576)AND252
294 POKE53272,(PEEK(53272)AND15):POKE648,196:PRINTCHR$(147):POKE648,192
295 POKE53272,(PEEK(53272)AND240)OR12:RETURN
296 READA:IFA=-1THENRETURN
297 FORX=.TO7:READD:POKE63488+A*8+X,D:NEXT:GOTO296
298 PRINT"[147][146]  A H O Y !  M A G A Z I N E  [151]PRESENTS"
299 PRINTTAB(5)"[176][195][195][195][195][174][176][195][195][195][174][176][195][195][195][195][174][176][195][195][195][174]"SPC(6)"[152][169][151][167]"
300 PRINTTAB(5)"[155][173][195][174][176][195][189][194][176][195][174][194][194][176][174][176][174][194][194][176][195][174][194] [151][207][183][183][183][208][152] [151][167]"
301 PRINTTAB(7)"[152][194][194]  [194][194] [194][194][194][194][173][189][194][194][194][173][195][189][194] [151][180][215][215] [151][170][152] [151][167]"
302 PRINTTAB(7)"[152][194][194]  [194][194] [194][194][194][194]  [194][194][194][176][195][174][194] [151][180]   [170][152] [151][167]"
303 PRINTTAB(7)"[194][194]  [194][173][195][189][194][194][194]  [194][194][194][173][195][189][194] [180]   [170][152][160][151][167]"
304 PRINTTAB(7)"[173][189]  [173][195][195][195][189][173][189]  [173][189][173][195][195][195][189] [204][175][175][175][186][152][160][151][167]"
305 PRINTTAB(17)" [185] [165][185][185][146]"SPC(10)"[152][223][151][167]":PRINTTAB(17)" [183] [165][162][146][190]"
306 PRINTTAB(5)"[176][174] [176][174][176][195][195][195][174][176][195][195][195][174][176][195][195][195][174][176][195][195][195][174][176][195][195][195][174]"
307 PRINTTAB(5)"[155][194][194] [194][194][194][176][195][174][194][194][176][195][174][194][194][176][195][174][194][194][176][195][174][194][194][176][195][174][194]"
308 PRINTTAB(5)"[152][194][173][195][189][194][194][194] [194][194][194][173][195][189][194][194][173][195][189][194][194][194] [194][194][194][173][195][189][194]"
309 PRINTTAB(5)"[194][176][195][174][194][194][194] [194][194][194][176][195][174][212][194][176][195][174][212][194][194] [194][194][194][176][195][174][212]"
310 PRINTTAB(5)"[151][194][194] [194][194][194][194] [194][194][194][194] [194][194][194][194] [194][194][194][194] [194][194][194][194] [194][194]"
311 PRINTTAB(5)"[194][194] [194][194][194][173][195][189][194][194][194] [194][194][194][194] [194][194][194][173][195][189][194][194][194] [194][194]"
312 PRINTTAB(5)"[173][189] [173][189][173][195][195][195][189][173][189] [173][189][173][189] [173][189][173][195][195][195][189][173][189] [173][189]"
313 PRINTTAB(4)"[149]THE ULTIMATE 3-D [149]ADVENTURE GAME!"
314 PRINTTAB(10)"[152]JOYSTICK [149]IN PORT TWO"
315 PRINTTAB(5)"(C)1988 [152]CLEVELAND M. BLAKEMORE"
316 PRINTTAB(6)"[154]*** SPECIAL DISK EDITION ***":RETURN
317 GOSUB327:POKES+5,K:POKES+6,255:POKES+F,23:A=K:D=F:FORX=UTO30:POKES+U,A
318 POKES+G,D:D=D*1.01:A=A+U:NEXT:POKES+6,G:GOSUB319:GOSUB35:RETURN
319 GOSUB327:POKES+12,F:POKES+19,F:POKES+13,241
320 POKES+20,241:POKES+11,17:POKES+18,17:GOSUB5:RETURN
321 FORX=ATODSTEPJ:SYSSR,.,240,X,.,17,15:NEXT:GOSUB319:RETURN
322 SYSSR,.,240,34,75,17,5:GOSUB319:RETURN
323 A$="251331421502421502":FORX=UTOLEN(A$)STEPH
324 SYSSR,.,240,VAL(MID$(A$,X,T)),.,33,10*VAL(MID$(A$,X+T,U)):NEXT
325 GOSUB319:RETURN
326 SYSSR,.,240,F,F,129,F:GOSUB319:RETURN
327 POKES+24,.:FORRV=.TO24:POKES+RV,.:POKES+24,G:NEXT:RETURN
328 DATA32,253,174,32,138,173,32,247
329 DATA183,132,193,133,194,32,253,174
330 DATA32,138,173,32,247,183,132,195
331 DATA133,196,32,253,174,32,138,173
332 DATA32,247,183,160,,177,193,145
333 DATA20,165,194,197,196,208,6,165
334 DATA193,197,195,240,15,230,20,208
335 DATA2,230,21,230,193,208,2,230
336 DATA194,152,240,225,96,234
337 DATA162,25,181,217,9,128,149,217,202,16,247,96
338 DATA32,230,2,169,15,141,24,212,32,241,183,142,5,212,32,241,183,142
339 DATA6,212,32,241,183,142,1,212,32,241,183,142,,212,32,241,183,142
340 DATA4,212,32,241,183,134,2,162,10,160,255,136,208,253,202,208,248,198
341 DATA2,165,2,208,240,32,230,2,96,160,24,169,,153,24,212,136,208,250,96,0
342 DATA0,,,,248,240,232,216,184
343 DATA1,56,56,44,76,254,134,199,
344 DATA2,252,102,102,124,102,102,252,
345 DATA3,63,99,97,96,96,99,62,
346 DATA4,252,102,99,99,99,102,252,
347 DATA5,127,49,48,62,48,49,127,
348 DATA6,254,102,98,120,96,96,240,
349 DATA7,126,198,192,223,198,198,126,
350 DATA8,231,99,99,127,99,99,231,
351 DATA9,126,24,24,24,24,24,126,
352 DATA10,15,6,6,102,198,198,124,
353 DATA11,247,100,104,120,108,102,247,
354 DATA12,240,96,96,96,98,102,254,
355 DATA13,195,119,91,91,91,75,227,
356 DATA14,231,114,90,90,78,70,227,
357 DATA15,60,102,66,66,66,102,60,
358 DATA16,252,102,102,124,96,96,240,
359 DATA17,60,102,195,195,195,102,60,79
360 DATA18,252,102,102,124,108,102,247,
361 DATA19,62,98,112,60,14,70,124,
362 DATA20,255,153,24,24,24,24,60,
363 DATA21,247,98,98,98,98,98,60,
364 DATA22,247,98,98,98,52,52,24,
365 DATA23,201,201,221,221,221,110,102,
366 DATA24,227,98,52,24,44,70,231,
367 DATA25,247,98,52,24,24,24,60,
368 DATA26,126,70,12,24,48,98,126,
369 :
370 DATA28,255,165,165,165,255,165,165,255
371 DATA30,31,31,31,31,31,31,31,31
372 DATA31,248,248,248,248,248,248,248,248
373 DATA38,,,,31,15,23,27,29
374 DATA40,,128,192,224,240,248,252,254
375 DATA41,,1,3,7,15,31,63,127
376 DATA42,255,,255,255,255,255,,255
377 DATA43,128,64,32,16,8,4,2,1
378 DATA45,,,,255,255,255,255,255
379 DATA47,1,2,4,8,16,32,64,128
380 DATA60,255,254,252,248,240,224,192,128
381 DATA61,,,,,,,,255
382 DATA62,255,127,63,31,15,7,3,1,-1
383 DATA0,60,126,126,78,78,60,.
384 DATA .,,,,,,,,,,,,,,,.
385 DATA .,4,1,1,1,1,1,1,,1,1,,1,1,1,.
386 DATA .,1,,1,,1,,1,1,1,,,,,1,.
387 DATA .,1,,1,1,,1,,,1,1,,1,1,1,.
388 DATA .,1,1,1,,1,1,1,,1,,,1,,1,.
389 DATA .,,,1,,1,,1,,1,1,1,1,1,1,.
390 DATA .,1,1,1,1,1,,1,2,,1,,1,,1,.
391 DATA .,,,,,,,,,,,,,,,.
392 DATA .,,,,,,,,,,,,,,,.
393 DATA .,2,1,1,,1,1,1,1,1,,1,1,1,1,.
394 DATA .,,,1,,1,,1,,1,1,1,,,1,.
395 DATA .,1,1,1,,1,1,1,1,1,,1,1,1,1,.
396 DATA .,,,1,,1,,1,,1,,1,,1,,.
397 DATA .,1,1,1,1,1,,1,,1,1,1,,1,1,.
398 DATA .,1,,,1,,1,1,1,1,,1,,,2,.
399 DATA .,,,,,,,,,,,,,,,.
400 DATA .,,,,,,,,,,,,,,,.
401 DATA .,4,1,8,1,1,1,,1,,1,1,8,1,1,.
402 DATA .,1,,1,,,1,,1,,1,,8,,1,.
403 DATA .,1,,1,,,1,1,1,,8,,1,,1,.
404 DATA .,8,1,1,8,1,1,,1,1,1,,1,1,1,.
405 DATA .,1,,1,,,1,1,,1,,,1,,1,.
406 DATA .,1,,8,1,1,1,,,1,1,1,1,,4,.
407 DATA .,,,,,,,,,,,,,,,.
408 DATA160,194,160,152,137,110,185,110,170,170,170,129,172,150,172,160
409 DATASTIRGES,GIANT SPIDER,CONSTRICTOR,GRAVE RAT,DROW ELF,HOBGOBLIN,FUNGUS
410 DATALICH PALADIN,SPECTER,REVENANT,WYVERN,GUARDIAN NAGA,DEMON KING
411 DATA 1,1,2,2,3,3,4,4,5,6,6,7,7,8,8,9,10,10,10,10,11,11,11,12,13
412 DATA 0,,5,9,11,2,5,,13,11,1,5,0
413 DATA 18,18,17,2,15,21,19,18,16,3,6,11,18,4,5,22,8,12,7,13,14,20,18,9,23
414 DATA "()","()","'","'","+,","+,","*","*","./","./","-","-"
415 DATA "12","12","0","0","4687","45","3","3","<=>?",":;","9","9"
416 DATA DAGGER,HAND AXE,LANCE,MORNING STAR,SCIMITAR,BROADSWORD
417 DATA WAR HAMMER,DRAGONSLAYER,EXCALIBUR,BUCKLER,LEATHER JERKIN,CHAINMAIL
418 DATAIRON PLATE,MITHRIL PLATE,COMPASS,SCROLL,STEEL HOOK,PINTS OF ELIXIR
419 DATA COIL OF ROPE,BLACK CLOAK,MITHRIL RING,HOLY SYMBOL,LUMP OF COAL
420 DATA LUMP OF IRON,ALCHEMY STONE,GEMS,JEWELS,GOLD,SILVER,RARE SPICES
421 DATA TAKE,DROP,LEFT HAND,RIGHT HAND,ARMOR,ASCEND,DESCEND,EXAMINE,INCANT
422 DATA QUAFF,HAIL,SEARCH,INVENTORY,EXIT MENU
423 DATA 15,12,11,3,14,6,10,8,9
424 DATA WEAPON,ARMOR,SPECIFIC ITEM,TREASURE,EXIT MENU,KNOCK YOU SILLY
425 DATA BASH YOUR BRAINS IN,GRIND YOU TO DOGMEAT,TEAR YOU TO RIBBONS
426 DATA GROWLS,BELLOWS,BARKS,ROARS,"PASS BY, KNIGHT ERRANT"
427 DATA A SPRAY OF WHITE LIGHT,A CHORUS OF ANGELIC VOICES
428 DATA IT TRANSFORMS IN YOUR HAND!,A BLAST OF SPARKS..CHECK INVENTORY
429 DATA COMMON,GOOD,EXCELLENT,PRECIOUS,GLITTERING,FABULOUS,CACHE,CHEST,CRATE
430 DATA NO SHAFT LEADING DOWN HERE,NO SHAFT LEADING UP HERE
431 DATA"YOU DON'T HAVE THE ",THE CATACOMBS,THE SEPULCHRE
432 DATA THE BARROW,YOU'RE OUT OF HEALING ELIXIR,YOUR VOICE ECHOES EMPTILY
433 DATA POISON DARTS,TRIPWIRE,BEAR TRAP,SPIKED PITFALL,TRAPDOOR,SNARE NOOSE
434 DATA YOU DO NOT HAVE THE ALCHEMY STONE!,T H O U   A R T   S L A I N !
435 DATATHOU HAST CONQUERED THE TOMB!
10000 OPEN1,8,15,"I0":N$="TOMB OF HORROR"
10001 PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,8:END